home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
forlib1.arc
/
SETRC.ASM
< prev
next >
Wrap
Assembly Source File
|
1986-04-01
|
603b
|
24 lines
DATA SEGMENT PUBLIC 'DATA'
TITLE__ DB 'TITLE: SET DOS RETURN CODE FOR MS FORTRAN'
COPY_R DB ' (C) John R. Petrocelli'
DB ' Schenectady,NY '
DB ' 04/01/86 '
EXTRN DOSEQQ:WORD ; DOCUMENTED IM MS FORTRAN MANUAL
DATA ENDS
DGROUP GROUP DATA
CODE SEGMENT 'CODE'
ASSUME CS:CODE,DS:DGROUP,SS:DGROUP
PUBLIC SETRC
SETRC PROC FAR
PUSH BP
MOV BP,SP
LES BX,DWORD PTR[BP+06]
MOV AL,ES:[BX]
MOV DOSEQQ,AX
MOV SP,BP
POP BP
RET 4
SETRC ENDP
CODE ENDS
END